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Vanaf nu zal het mijn taak zijn de Quasar maandelijks 
compleet samen te stellen. 

Allereerst wil ik Ron bedanken voor zijn inzet van de 
afgelopen 34 nummers, en ik ben blij dat ik nog steeds 
terug kan vallen op zijn opgedane ervaring, want Ron 
blijft gewoon op de achtergrond aanwezig. 


Zoals jullie alien zullen weten valt en staat dit blad 
geheel met inzendingen van onze lezers, dus blijft het 
zaak om .alle interessante ontwikkelingen op QL-gebied 
aan ons door te sluizen, zodat wij deze het in het 
blad op kunnen nemen. 


Er is veel belangstelling voor kleine (of grotere) 
Hardwareprojekten gelllustreerd met een kompleet 
schema en indien mogelijk met printplaat(tekening) en 
bouwbeschrijving, ook voor algemene toepassingen in 
ARCHIVE, EASEL. ABACUS en meer informatie over het 
gebruik van de programmeertaal C. 

Dus heb je zelf wat hardwarematig aan je QL 
gebroddeld, klim in de pen (en daar gebruiken we 
tegenwoordig Quill voor) en probeer zo duidelijk 
mogelijk de zaken op papier te zetten, zodat ook de 
personen met wat minder ervaring in elektronica deze 
uitbreiding toch na kunnen bouwen. 

Wat ARCHIVE betreft, heb je een interresante 
toepassing geschreven in ARCHIVE laat ons hem dan 
publiceren zodat men kan zien wat er zoal mogelijk is 
in ARCHIVE. (En dat is niet weinig) . 

De programmeertaal C leent zich uitstekend voor het 
zelf uitbreiden van procedures en functies, het lijkt 
ons interessant deze te plaatsen zodat medegebruikers 
van C hier hun voordeel mee kunnen doen. (Zie artikel 
elders in dit blad.) 

Ook vragen hoe een bepaald probleem in C opgelost zou 
kunnen worden zijn welkom. 

Wij zien uw inzendingen gaarne tegemoet als QUILL-doc 
of als ASCII-file op cartridge en vanaf nu is het ook 
mogelijk gebruik te maken van 5 1/4 inch floppy-disk 
met 40 of 80 tracks (Wei even vermelden s.v.p). Het is 
voor ons ook erg makkelijk als er uitgeprinte versie 
bijgesloten wordt. f 


Met vriendelijke groeten* 

















KOMIN 

FAILLIET 

De vermoedens hieromtrend waren in 
het vorige nummer al ter sprake geko- 
men, en helaas moeten wij deze 
geruchten bevestigen. 

Het faillisement van Komin is op 
30 maart 1988 uitgesproken. 

Curator: 

Mr. R.J.M. van Bree 
Postbus 581 
5600 AN Eindhoven 
Kantoor houdende aan de: 

Fazantlaan 27 
Eindhoven 

Dus een ieder die nog gelden of ma- 
terialen van Komin tegoed hebben 
doen er verstandig aan zich te wen- 
den tot bovenstaande curator. 


Is er interresse 
in 1200 Baud 
full duplex voor 
onze Databank 

De sysop van onze databank vraagt 
zich af of er mensen zijn die er belang 
bij hebben dat de databank ook gaat 
draaien op 1200 baud full duplex. 
Diegene die zelf een modem hebben 
met de mogelijkheid van 1200 baud 
full duplex en gebruik maken van de 
Databank worden verzocht dit aan 
Michel Spanjer door te geven, hetzij 
via het bulletinboard of telefonisch. 


MICROFAIR 

Binnenkort is het weer zover.op 11 
juni in Londen start al weer de 27ste 
Microfair. De Microfair is de enigste re- 
gelmatige terugkerende beurs waar 
alles op QL gebied te vinden is en 
meestal tegen gunstiger tarieven. 

Ook dit keer ga ik weer naar de Micro¬ 
fair toe en natuurlijk zal ik deze keer 
weer mijn best doen om de spul- 
len.die onze leden daar widen bestel- 
len via mij.zo goedkoop mogelijk te 
krijgen. 

Vorige keer was het wat kort dag van 
de vooraanmelding maar deze keer 
ben ik er op tijd bij. 

Dus als u wat wilt bestellen dan staan 
hieronder een aantal aanwijzingen. 

- Kijk in de QL WORLD wat je wilt 
hebben, schrijf dit op een briefje met 
je naam en adres, doe het bedrag 
wat het kost aan Engelse Ponden 
erbij en stuur dit naar mij op. 
(aangetekend of voor eigen risico). 
(vergeet niet de retour porto kosten 
bij te sluiten). 

- Of neem even kontakt met mij op als 
dit alles niet geheel duidelijk is. 


Een paar prijzen: 

- Trump card 
-Ace card 
-Trey card 
-512k 

- Miracle modem 

- Schon keybord 

- 3x 64k Eprombord 


£ 175,00 

£ 131,00 

£ 131,00 

£ 89,00 

£ 45,00 

£ 45,00 

£ 40,00 


Let wel op deze prijzen zijn in En¬ 
gelse ponden. 

Voor de rest en voor de software gel¬ 
den de normale prijzen vermeldt in de 
QL WORLD. 


CONTRIBUTIE 


Zoals jullie alien gemerkt zullen heb¬ 
ben is er bij iedereen een acceptgiro- 
kaart in de bus gerold. 

Nu is de betaling van de contributie 
van groot belang voor het continuer- 
en van onze vereniging. Gelukkig 
hebben reeds vele leden gebruik ge- 
maakt van de acceptgiro voor betaling 
van hun contributie. 

De leden waarvan wij de contributie 
nog niet ontvangen hebben vonden 
bij deze Quasar een nieuwe acceptgir- 
okaart bijgesloten. Deze leden von¬ 
den ook 2 uitroeptekens op hun 
adreslabel. Wij verzoeken deze leden 
vriendelijk alsnog de betaling d.m.v. 
de acceptgirokaart in orde te maken. 
(Het is mogelijk dat uw betaling en de 
toezending van deze Quasar elkaar 
gekruist hebben.). 

Wat is / 40,- nu, voor een heel 
jaar informatie over de QL 
d.m.v. een maandelijks ve- 
rschijnend informatieblad met 
daarblj nog diverse QL- 
bijeenkomsten. DOEN!!! 


Donderdag 
27 oktober a.s. 


Internationale 
QL-Dag 
in Belgie 


Telefoonnummer QL Databank 
03404 - 22533 
(24 uur per dag) 

Telefoonnummer Michel Spanjer 

03404 - 20581 

(van 19.00 - 22.00 uur) 


Uiteraard zal ik mijn best doen om zo- 
veel mogelijk korting zien te beding- 
en. 

Ik hoor nog van u alien. 

Fred van der Neut 

01807-10553 (alleen woensdaga- 
vond tot 22.00 uur) 


Waar aanwezig zullen zijn afgevaar- 

digden uit: Frankrijk 
Belgie 
Duitsland 
Engeland 

en waarschijnlijk nog andere landen. 
Details volgen z.s.m. 
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De manier waarop QL-files door disc-interfaces moeten 
worden gelezen en geschreven is vastgelegd in een stan- 
daard, maar het blijkt dat die standaard ofvoor meer dan 
een uitleg vatbaar is of dat men zich er gewoon niet aan 
houdt. Al eerder is in Quasar opgemerkt dat de manier 
waarop door CST- en aanverwante disc-interfaces aange- 
geven wordt hoeveel ruimte er op de floppy over is, ve- 
rschllt met die van het "officiele" Sinclair- (Micro Peripher- 
als)lnterface. 


Het laatste telt kennelijk de tabellen 
na waarin wordt bijgehouden waar 
eike file staat en hoeveel ruimte zij in- 
neemt, het CST-IF leest en beschrijft 
een voor het totaal bestemd veld in 
de eerste sector op kant 0 (begin van 
het "mapping block"). 

Op zich nog geen probleem. Ernsti- 
ger wordt het als het om gewone 
code-files gaat die met LBYTES gela- 
den worden en als er EXE-files in het 
geding zijn. 

Voor elke file staat de 64 bytes lange 
f ileheader twee maal op de schijf: een 
exemplaar in de directory en een aan 
het begin van elke file. De eerste 16 
bytesvan de header bevatten o.a. de 
volgende informatie: 


1 . 


2 . 


4. 


Lengte van de file (inclusief de 
header); 

Type file (kan zijn: exe-file, bij JS 
en later relocatable objectfile en 
tenslotte andere filetypen); 
Lengte van dataruimte voor EXE- 
files (indien van toepassing); 
Lengte van de filenaam. 


Het CST-interface leest en schrijft 1, 2 
en 3 alleen in de fileheader die in de 
directory staat (van 1 schrijft het 64 = 
40H in de andere header); het MP- 
interface schrijft 1 en 4 in beide exem- 
plaren, maar vreemd genoeg 2 en3 
alleen in de header aan het begin van 
de file. 

Verder lezen LBYTES en EXEC(_W) 
via dit laatste interface 1 en 2 (en ver- 
moedelijk ook 3, heb ik niet naar ge- 
keken) alleen in laatstgenoemd head- 
er-exemplaar (LBYTES heeft alleen 1 
nodig). 


Gevolgen voor een disc die door een 
CST-interface (het meest courant ge- 
loof ik) is beschreven en via een MP- 
interface wordt gelezen: 


a met LBYTES laadt een MP- 
interface nul bytes in het geheu- 
gen (leest nl. 64+nul in het veld 
voor de file-lengte); 
b. met EXEC(_W) krijg je de melding 
"bad parameter", omdat in het veld 
voor het filetype iets anders staat 
dan QDOS op grand van het ge- 
geven commando verwacht. 


Remedie: 


- voor probleem a: 

gewoon de file kopieren; het COPY- 
commando leest de file-lengte in de 
directory en zet de lengte van de file 
ook in de header aan het begin van 
de file; 

- voor probleem b: 

dat is wat lastiger. Een mogelijkheid is 
het uitspitten van de directory naar de 
file in kwestie met de bij het MP- 
interface meegeleverde sector-editor. 
In de 16 bytes voor de eigenlijke file¬ 
naam staan alle gegevens die je nodig 
hebt. Maak een kopie van de file; laad 
deze in het geheugen met RESPR 
en LBYTES en save het geheel met 
sexec op een andere disc of car¬ 
tridge, waarbij de lengte van de code 
en de hoeveelheid benodigde data¬ 
ruimte opgegeven moeten worden 
die in de fileheader in de directory 
staat. Een tweede aanpak is het kopi¬ 
eren naar een verder lege disc en het 
met de hand bijwerken van de file- 
header aan het begin van de file, na 
eerst als boven de directory van de 
oorspronkelijke disc te hebben door- 
zocht. 

DIE DISC MOET JE DUS NIET 
WISSEN, aangezien je dan gege¬ 
vens van de EXE-files weggooit. 


Het is in principe doenlijk om de head¬ 
ers van de EXE-files op de disc zelf 
aan te vullen met de informatie die in 
de headers in de directory staan. Niet 
geheel ongevaarlijk, en je moet met 
enig beleid naar het begin van elke 
file zoeken, tenzij je de tabellen in het 
"mapping block" kunt ontrafelen. 

Het gemakkelijkste is natuurlijk om al¬ 
leen kopieen te draaien via micro¬ 
drive. 


Nog wat gegevens: 


1. structuur eerste deel van 
fileheader (high bytes 
steeds het eerst): 

-4 bytes file-lengte; 

-1 byte file access: niet gebruikt; 

-1 byte filetype: 1 indien EXE-file, 

2 voor relocatables (soms), 0 voor 
andere filetypen, zoals SB- 
programma's; 

-4 bytes dataruimte voor EXE-files of 
eventueel (maar vermoedelijk 
nooit gebruikt) extra gegevens 
voor andere filetypen); 

-4 bytes ongebruikt; 

-2 bytes lengte filenaam (rijkelijk op 
timistisch: voor de filenaam zelf 
staan maar 36 bytes te beschik- 
king. Is dit gedaan voor een moge¬ 
lijkheid tot copy-protection ?). 

Te vinden in de Sinclair QDOS Com¬ 
panion (Pennell) pag. 50, en de Sin¬ 
clair Technical Guide, pag. 38. 

2. directory-structuur: 

files staan op track 0 in de volgorde 
110, 410, 710, 200, 500, 800, 210 
enz. (sector, kant, track; sectoren ge- 
teld van 1 -9). 

De eerste eigenlijke file op een dis¬ 
kette begint op 601. 

Er is gewerkt met een MP-interface 
versie 5.3E, alleen met dubbelzijdig 
geformatte discs. 

WiardSmid 
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Naar aanleiding van vragen over een 
bufferprint voor de QL heb ik beslo- 
ten om hier maar eens een stukje over 
te schrijven. 

Nu heeft Kees van der Wal dit ooit 
voor mij eens uitgezocht hoe dat nou 
precies zat. Met die informatie ben ik 
maar eens aan de slag gegaan. 

1 Probleem met de datalijnen is dat de 
informatie 2 kanten op kan gaan op de 
bus: Bij het schrijven in 1 RAM gaat de 
data van de processor naar RAM en bij 
het lezen van RAM naar de proces¬ 
sor. 

Dat zijn al twee situaties die bekeken 
moet worden. 

Bovendien zit een deel van het ge- 
heugen in de QL en een ander deel 
(geheugenuitbreiding / perrferie zoals 
disk-interface) er buiten. Dat levert 
dus in totaal 4 verschillende situaties 
op voor de datalijnen van de 68008: 

In de gevallen A en B hoeft de bus 
buffer niets te doen. 

In de gevallen C en D moet de buffer 
natuurlijk wel in aktie komen waarbij de 
richting van de buffer wordt gestuurd 
door de processor die via een pootje 
R/W aangeeft of hij wil lezen of schrij¬ 
ven . Dit 68008 signaal is op de ex- 
pansie konektor uitgevoerd als signal 
RDWL (pen 7b). 

Een 1 op die poort geeft aan: 
lezen door de processor; 
een 0 geeft aan: 
schrijven door de processor. 

Het signaal RDWL kan dan ook direkt 
worden aangesloten op pen 1 van 
een 74LS245 (of LS645). Dan moet 
de A-kant van de busbuffer (pen 2 t/m 
9) aan de buitenkant komen en de B- 
kant (pen 18 t/m 11) met de QL datalij¬ 
nen verbonden zijn. 

Nu moet de buffer nog weten wan- 
neer hij in aktie moet komen. De 
meest algemene en elegante oploss- 
ing is het af te leiden van de 
"datastrobe" (DSL, pen 6b) en "data 
strobe master chip" (DSMCL, pen 
27a). 

Als n.l. intern geheugen wordt aan- 
gesproken dan gaat DSMCL tegelijk 
op en neer met het door de 68008 
geleverde signaal DSL. 

Externe apparaten moeten, zodra ze 
aangesproken worden, de lijn DSMCL 
op +5V houden (Vandaar b.v. de tran- 



A> Schrijven naar intern geheugen 




B> Lezen uit intern geheugen 




C> Schrijven naar extern geheugen 


68008 


Exp. 

poort 


D> Lezen van extern geheugen 



Eprom 


Intern 

RAM 
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74LS00 



sistor op de disk interface e.d.). 

Dit schakelingetje werkt goed bij mij 
en draait al 2 jaar zonder enige proble- 
men. Er zijn ook andere oplossingen 
die zal ik ook beschrijven maar deze 
schakelingen heb ik niet uitgepro- 
beerd of ze feiloos werken, op papier 
zouden ze moeten werken. 

Het aktiveren van de buffer kan ook 
afgeleid worden van de adresseering. 
Dan moet er echter onderscheid ge- 
maakt worden in QL's met 128K RAM 
intern (en waarbij evt. een geheugen 
uitbreiding aan de buitenkant is aan- 
gesloten) en QL’s met 512K (of 
640K) RAM intern. 

Bij een standaard QL met 128K in¬ 
terne RAM of met 512K intern maar 
met de schakelaar in de 128K stand, 
zijn alleen de adressen $00000 - 
$3FFFF intern. De rest is extern en ais 
dus een adres tussen $40000 en 
$FFFFF voorkomt, dan moet de data- 
buffer in aktie komen. 

Dat is eenvoudig vast te stellen aan 
de hand van adreslijn Al 8 en A19. 

Bij een QL met intern 640K RAM, 
hoeft de busbuffer alleen geaktiveerd 
te worden in t adresgebied $C0000 - 
$FFFFF. Bij een QL met 512K intern 
RAM zou je in principe de adressen 
$A0000 - $BFFFF nog vrij hebben 


A18 (pen 8a). 
A19 (pen 7a). 


pen 19(G) van 
LS245/LS 645 


74LS02 


A18 (pen 8a). 
A19 (pen 7a). 


& 


pen 19(G) van 
LS 245/LS 645 


74LS00 


voor 128K externe RAM maar dat is 
niet waarschijnlijk. (Bovendien zijn de 
in de handel verkrijgbare 128K uit- 
breidingen waarschijnlijk op adres 
$40000 - $5FFFF gesitueerd, zodat 
die niet gebruikt kunnen worden 
zonder er het een en ander aan te wij- 
zigen). 

Ook dat adres gebied is te detekteren 
door naar Al 8 en Al 9 te kijken. 

Als het goed is moet het zo kunnen 
werken. 

Als databus buffer is een 74LS245 



adres 

$00000 - $0FFFF 
$10000-$1FFFF 
$20000 - $2FFFF 
$30000 - $3FFFF 
$40000 - $4FFFF 
$50000 - $5FFFF 
$60000 - $6FFFF 
$70000 - $7FFFF 
$80000 - $8FFFF 
$90000 - $9FFFF 
$A0000 - $AFFFF 
$B0000 - $BFFFF 
$C0000 - $CFFFF 
$D0000 - $DFFFF 
$E0000 - $EFFFF 
$F0000 - $FFFFF 


512K640K QL intern 


ROM 


512K RAM intern 
640K RAM intern 


Extern 


geschikt. 

Ook de 74LS645 kan gebruikt word¬ 
en (de pen aansluiting is hetzelfde). 
Als men nog meer "power" nodig 
heeft kan men de 74LS645-1 nemen 
deze kan 2xzoveel stroom sturen als 
de 74LS645 of LS245. 

De buffering van de adreslijnen is niet 
zo'n probleem hiervoor kan men ge- 
woon 74LS244 voor gebruiken. Deze 
gaan maar naar een kant op en kun¬ 
nen gewoon altijd "aan" staan. Well- 
icht is het verstandig om (als men een 
lange kabel (bijv. 1 meter) gebruikt) 
de adreslijnen met weerstanden af te 
sluiten. Voor elke adreslijn een weer- 
stand van 680 Ohm naar de +5V aan 
het eind van de kabel/adresbus. 

De weerstanden verminderen even- 
tuele reflekties op de lijn en vermind¬ 
eren ook de overspraak van de ene 
adreslijn op de andere. 

Voor de datalijnen geldt eigelijk het¬ 
zelfde, maar dan moet men iets gro- 
tere weerstanden gebruiken omdat 
niet bekend is of alle periferie busbuf- 
fers gebruiken. Voor de zekerheid 
kan men weerstanden kiezen die niet 
kleiner zijn dan ca. 1K5. 

Ik hoop dat dit de zaken wat duidelij- 
ker heeft gemaakt en dat men hier 
verder mee kan solderen. 

<Michel> 
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Wederom is een tijdschrift op computergebied ter ziele. 

Dit keer is het een Duits blad namelijk "Computer Kontakt". Er stonden altijd lees- 
bare artikelen in en was niet zo duur als QLworld. Maar laten we er niet van uit- 
gaan dat het engelse blad altijd zal blijven bestaan! Ook al zullen de Atari en Ami¬ 
ga computers nog niet verdwijnen, over enkele jaren is dat ook over! En dan 
verdwijnen er weer een aantal tijdschriften. Een computer is nou eenmaal geen 
speelgoed al zijn er journalisten die ons dat proberen wijs te maken. De harde 
waarheid is dat de computer nog steeds in z'n kinderschoenen staat, dat er nog 
heel veel aan gedaan moet worden voordat het volwassen is. Daarbij gaat het al 
lang niet meer over een stuk speelgoed maar over een geavanceerd apparaat. 

Dat maakt ook, dat om er dieper in te duiken de materie er niet eenvoudiger opwo- 
rdt. Na deze wat diepzinnige overpeinzing wil ik uit het laatste CK blad een artikel 
overnemen van Dr. H.EItermann dat als een voortzetting beschouwd kan worden 
van het artikel uit de Quasar nr.31 biz 617. 

Hierbij behoren ook twee SuperBasic programma's die hierbij gaan. 

Dirk de Vogel 


Uitbreiding van de QL set. 


Het is U bekend dat men de comman- 
doset van SuperBasic door toevoeg- 
ing van geschikte machine taal pro- 
gramma's kan uitbreiden. 

Men heeft daarvoor een programma 
nodig, dat met behulp van een as¬ 
sembler in staat is om een procedure 
zoals PRINT of RUN respectievelijk 
een functie zoals SIN of SORT, aan te 
maken. Dat programma zal ergens in 
het RESPR-geheugen staan. 

Tevens moet men er nog voor zorgen 
dat men het met een bepaalde naam 
vanuit SB kan oproepen. En het moet 
op een bepaalde wijze ingevoerd 
worden. 

De vaders van de QL hebben hier- 
voor een sub-programma BP.INIT ter 
beschikking gesteld, wiens oproep 
adres in deROM op $110 ligt. 

De oproep zelf moet in RAM staan, 
gevolgd door, volgens een bepaald 
schema vervaardigde definitie lijst. 

Die bevat de namen en adressen van 
het in te voeren machinetaal program¬ 
ma. Een CALL voltooid dan de invoer- 
ing. Deze methode verdient de voor- 
keur omdat het gelijktijdig met 
meerdere programma's mogelijk is. 

Het is echter in de praktijk behoorlijk 
omslachtig en bovendien met enige 
gebreken behept. 

Men kan die nieuwe commando's niet 
in momentane basic programma's op- 
nemen, behalve misschien in een 
commando regel. 


Dat ligt daaraan, dat het hulp- 
programma niet controleerd of die 
naam reeds aanwezig is, maar het 
eenvoudig met het nieuwe gebruik- 
ers doel aan de naam tabel toevoegdl 
De tabel heeft voor SB een speciale 
betekenis. Die methode laat ook toe 
dat een naam tweemaal voorkomt, en 
zelfs voor verschillende doeleinden. 
Dat functioneert natuurlijk niet. 

Eerst met NEW worden alle invoering- 
en behalve de machine taal codes 
ongedaan gemaakt. Gelukkig is er 
nog een andere mogelijkheid die als 
voIgt omschreven kan worden. 

Om deze methode te begrijpen moet 
men iets van de naamtabel weten. 

Dat is eigenlijk het adresboek van Su¬ 
perBasic en bestaat uit blokken van 8 
bytes voor elke naam. Deze tabel is na 
het laden direct ter beschikking en 
bevat alle inschrijvingen van PRINT tot 
ERLIN. 

Bovendien volgen dan nog alle and- 
eren die in het geladen Basic pro¬ 
gramma voorkomen. 

Vervolgens zullen we de inhoud van 
de enkele blokken beschrijven en 
nummeren de bytes van 0 tot 7. 

Nogmaals de blokken bestaan uit 8 
bytes. 

Byte #: Hierin staat: 

0: de typen die gebruikt worden van 
0 tot 9. 


1: type variabele (string 1, vloeiende 
komma 2, geheel getal 3) 

2: relatieve adres van de naam string 
3: idem 

4: het eigenlijke adresdeel 
5: idem 

6: idem, de betekenis hangt af van 
het gebruik. 

Type #: Betekenis 


9 


8 : 

7: 

6 : 

5: 


4: 


3: 


Machine code functie. In het 
adresdeel staat het oproepadres 
(Het type variabele betekent niets 
= 0 ) 


Machine code procedure. 

Verder als 9 

FOR variabele. Het type ver 
andert tijdens het runnen van het 
programma 
REP variabele. 

Verder als bij 7. 

Basic functie. 

Wordt door DEFine FuNction ge- 
definieerd. Het regelnummer staat 
als woordgetal in byte 4 en 5 in het 
adresdeel. Byte 6 en 7 heeft 


$FFFF. 


Van het variabele type wordt noti- 
tie genomen. 

Basic procedure. Door DEFine 
PROCedure gedefinieerd. Ver- 
derals 5 uitgezonderd het varia¬ 
bele type. 

ARRAY Een veld aangegeven 
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1 : 

0 : 


met getallen dimensies. Het type 
variabele geeft het element aan 
Het adresdeel duidt relatief op 
een ARRAY definitie blok in het 
variabele geheugen. 

Variabele Nader kenmerk van 
het variabele type. In het adres¬ 
deel bevind zich het relatieve 
adres van het variabele geheugen 
waarop de waarde van de varia¬ 
bele staat. Is deze variabele nog 
niet aangebracht dan staat er -1 
in. 

Getal op de rekenkundige 
stapel. Dat wordt slechts intern 
gebruikt en heeft geen naam. 

Een naam. Hiermee wordt de de¬ 
vice naam in het adresboek ge- 
plaatst. 


Omdat het adresboek in RAM staat, 
kan het gemanipuleerd worden. Dat 
moet met verstand gebeuren, omdat 
SuperBasic zich volledig hierop ba- 
seert! Het is derhalve duidelijk wat er 
gedaan moet worden om nieuwe 
commando’s toe te voegen. Is de ge- 
wenste naam bekend dan moet men 
het overeenkomende blok in het 
adresboek zien te vinden. Dan kan 
het te gebruiken type en adresdeel 
ingevoerd worden, zonder de naam- 
delen in byte 2 en 3 te veranderen. 
Het is nu echter wat moeilijk om het 
daarbij behorende blok in het adres¬ 
deel te vinden; omgekeert is het een- 
voudiger. Daarom wordt in de vol- 
gende programma's een true 
gebruikt, die men slechts kan begrij- 
pen, wanneer men weet hoe Super- 


Basic met deactuele parameters om- 
gaat. Hier handelt SuperBasic na toe¬ 
passing van deze trues het gewenste 
zelf at. 

Nu zullen we het programma 
zelf onder de loep nemen. 

Allereerst is er CALL. Het beschikt 
over twee ingangen, teweten UP en 
UF voor het invoeren van procedures 
in machine code respectievelijk func- 
ties. 

Wanneer men dit programma in het 
RESPR geheugen heeft, zijn UP en 
UF tegelijk op de overeenkomende 
adressen gezet. Voor het invoeren 
van procedure in machine code met 
als naam ALFA en op het oproep 
adres ADR moet men het bevel 
ALFA=ADR en CALL UP,ALFA in¬ 
voeren. Daarmee wordt de procedure 
ALFA gedefinieerd. Voor het invoer¬ 
en van de machine code functie 
maakt men gebruik van UF. Hierbij wo¬ 
rdt de normale variabele ALFA in een 
machine procedure ALFA omgezet. 

Voor zich is de methode voor het in¬ 
voeren met CALL volledig toerei- 
kend. Om de twee MC procedures 
DFPR en DFFN in te voeren kan dat in 
de vorm DFPR NAAM, ADR resp. 
DFFN NAAM,ADR gebeuren. 

Deze beide accepteren alleen na- 
men, die nog geen waarde in het vari¬ 
abele geheugen hebben. Dat lijkt zin- 
vol omdat het verhindert dat een 
reeds aanwezige variabele omgedefi- 
nieerd wordt. 


Het beslissende voordeel van beide 
methoden ligt in de directe beschik- 
baarheid van het ingevoerde program¬ 
ma 

Het kan bijvoorbeeld voorkomen dat 
men zich over lange commando na- 
men gaat ergeren. Dan is het mogelijk 
om bijv. CONTINUE om te zetten met 
DFPR CONT,32356 
Op die manier beschikt men over een 
commando CONT dat gelijk is aan 
CONTINUE. 

Het zelfde effect krijgt men met 
CONT=32356 : CALL UP,CONT. 

Een verder voordeel bestaat uit de lo- 
caliseerbaarheid van het ingevoerde 
programma. Staat er bijvoorbeeld in 
Basic een met DEFine PROCedure 
geproduceerde procedure, dan kan 
daarin met LOC ALFA : DFPR 
ALFA,ADR een locale machine code 
procedure toevoegen, die alleen bin- 
nen de Basic procedure geldig is! 

Na RETurn of END DEFine is ALFA 
weer als voorheen bruikbaar. 

Wie zelf wil uit vissen, hoe de naam 
tabel in elkaar zit, moet weten dat het 
begin en het eind adres op de plaat- 
sen 24 (A6) en 28 (A6) in het Basic- 
blok staat en kan met de voortreffelijke 
BPEEK-commando’s van Klaus Gtter ( 
CK 10-11/87) heel gemakkelijk ge- 
vonden worden. 

Is hiervoor belangstelling dan wil ik dat 
ook vertalen. 

Uit CK 2-3/88. ( De laatste) 

H.EItermann 
vertaling Dirk de Vogel. 


Basicprogramma voor de aanroep van de uitbreiding 

100 dev$="flpl_" 

110 adr=RESPR(512) 

120 start=adr 

130 LBYTES dev$ & "call_ext", start 
140 up=start 
150 uf=start+6 
160 start=start+40 

170 LBYTES dev$ & "dfpr_ext", start 

180 dffn=start+6 : CALL up,dffn 

190 dfpr=start+6 : CALL up,dfpr 

200 PRINT "Variabelen UP en UF vastgelegd!" 

210 PRINT "PROCedures DFPR en DFFN" 

220 PRINT "ingevoerd!" 
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10 

REMark ** Basic lader voor machine 

290 

FOR i 

=0 TO 66 STEP 2 

kk 



300 

READ 

waarde 

20 

REMark ** code routinen ** 


310 

som= 

som+waarde 

30 

REMark ** Behorende bij het 

artikel 

320 

POKE 

__W adr, waarde 

40 

REMark ** Uitbreiding van de 

QL set 

330 

adr= 

adr+2 

★* 



340 

END FOR i 

50 

REMark ** Gemaakt door H.Elterman 

350 

READ 

check 

60 

REMark ** en Dirk de Vogel ** 


360 

IF som*=check THEN 

70 

REMark ** CK 2-3/88 (laatste) 

*★ 

370 

SBYTES dev$ & ”dfpr_ext",start,68 

100 

dev$="flpl__" 


380 

ELSE 


110 

som=0 : RESTORE 


390 

PRINT ”Fout in data" 

120 

adrHRESPR (512) 


400 

STOP 


130 

start=adr 


410 

END IF 

140 

FOR i=0 TO 38 STEP 2 


420 

DATA 

13372,2050,24580,13372,2306,10862 

150 

READ waarde 


430 

DATA 

28,20877,12342,-10238,27916,15746 

160 

som=som+waarde 


440 

DATA 

-10240,11649,-10236,28672,20085 

170 

POKE_W adr,waarde 


450 

DATA 

28916,20085,0 

180 

adr=adr+2 


460 

DATA 

222144 

190 

END FOR i 


470 

: 


200 

READ check 


480 

DATA 

14908,2306,24580,14908,2050,28672 

210 

IF som=check THEN 


490 

DATA 

12342,-18430,27652,28913,20085 

220 

SBYTES dev$ & "call ext",start,38 

500 

DATA 

8246,-18428,27908,28920,20085 

230 

ELSE 


510 

DATA 

9291,20619,-17461,28650,10827 

240 

PRINT "Fout in data” 


520 

DATA 

20621,14456,280,20116,26334,10358 

250 

STOP 


530 

DATA 

-26624,15749,-22528,11660,-22524 

260 

END IF 


540 

DATA 

28672,20085 

270 

start=adr 


550 

DATA 

373298 

280 

som=0 







De FUTURA, de SANDY opvolger van 
de QL is definitief van de baan. In 
plaats hiervan is men bezig met een 
uitbreidingskaart voor de IBM zodat 
het mogelijk wordt QDOS als opera¬ 
tion system te gebruiken op de IBM 
en zijn klonen. Er zijn verschillende 
versies in voorbereiding, o.a. een met 
4 Mb geheugen en een 68020 pro¬ 
cessor, dit zou de snelheid met faktor 
200 verhogen. Hiermee zou ook true 
multitasking mogelijk moeten zijn. 

Zou het dan toch nog leuk worden op 
een IBM machine??? 

Toch is de FUTURA als uitbreidings- 
pakket te koop! 

Sandy een Italiaans bedrijf met een 
vestiging in Engeland heeft veel geld 
geinvesteerd in de ontwikkeling van 
de FUTURA, en vele onderdelen van 
de FUTURA waren al gereed, en om 


toch nog wat geld van de investering- 
en terug te verdienen worden de ont- 
wikkelde delen als uitbreiding voor de 
QL verkocht. 

Als eerste kwam de Toolkit II van Tony 
Tebby. Ik neem aan dat deze inmid- 
dels bij een ieder bekend is. 

Ook van QRAM zullen de meeste al 
gehoord hebben. QRAM is overigens 
ook op de THOR geimplementeerd. 
Het Sandy Super-Q-Board voor ge- 
heugenuitbreiding, disk- en muis in¬ 
terface is ook al even op de markt. 

Blijft over de systeemkast, het toet- 
senbord en de 4 EPROM uitbreidi¬ 
ngskaart. 

In de systeemkast is plaats voor de 
QL, diskinterface, diskdrives en een 
ruime plaats voor de voeding (gescha- 
kelde voeding inbouwen geeft geen 
probleem). Reeds ingebouwd is een 


5-weg gebufferde uitbreidingspoort. 
Het toetsenbord heeft 84 toetsen, 10 
functietoetsen en een nummeriek 
pad. 

Ook de mogelijkheid op 4 EPROMS 
te plaatsen is los te koop. 

Meer informatie: 

SPEM 

Via Aosta 86 
10154 Torino 
Italia 


Prijzen: 

Toolkit II (ROM).£ 29,90 

QRAM (ROM).£ 29,90 

Super-Q-Board + muis.£ 240,00 

Systeemkast.£ 99.90 

Toetsenbord.£ 99.90 

QEPROM-board.£ 34,90 
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Ik gebruik archive voor het bijhouden van onder- 
delen In mijn auto, ik ben namelijk service mont- 
eur van copieer machines. 

Het daarvoor gemaakte menu-gestuurde pro- 
gramma is totaal 39K groot en 40K aan data 
(komt bij mij overeen met 380 records). 


Onderstaand wat informatie en hope- 
lijk wat tips voor nieuwkomers : 

- nette opstart 


bij de allereerste opstart gebruikt en 
elke weder opstart door strt. 

Hoofdmenu 


d.m.v. run object "XXX" ; 
hierin 1 procedure genaamd START; 
in deze procedure staan bij mij onder 
andere de volgende regels 
merge object "flp2_XXX" ; 
laadt de rest van het hoofdprogram- 
ma 


sload "flp2_XXX" ; 
laadt een eventueel gemaakt 
scherm in 

backup "flp2_XXX_dbf" as 
"ram1_XXX_dbf"; 
copieert de data naar ramdisk 
(moet dus wel aanwezig zijn) 
Bovenstaande opdrachten worden 
ook op het scherm vermeld, met als 
gevolg dat we niet tegen een leeg 
scherm aankijken. 

De laatste opdracht in START is de 
aanroep van de procedure strt. Deze 
opent de file, toont aantal records ect. 
In strt wordt het hoofdmenu scherm 

• opgestart. 

Het voordeel van strt is dat ik na een 
’edit' weer opstart door als direct 
commando strt in te toetsen. 

(erg makkelijk bij het maken van een 
programma) Dus START wordt alleen 


- Het hoofdmenu loopt via een ER¬ 
ROR opvang. Bij een ERROR wordt 
het error nummer getoond, wordt er 
gereset (om een event, select op te 
heffen), opnieuw gesorteerd ect. en 
weer opnieuw opgestart. 

Het programma is dus zelfherstellend. 
Hierna moet dus eerst de tout her- 
steld worden, maar het voordeel is dat 
je niet met een halve of open file zit. 
Vergeet geen mogelijkheid om het 
progr. te stoppen. 

- Schermgebruik: 

ledereen weet ondertussen wel dat 
ARCHIVE bijzonder traag is met 
scherm afhandelingen. Ik gebruik daa- 
rom maar 1 scherm met alle record- 
informatie op de bovendste helft van 
het scherm. 

De onderste helft is leeg en gebruik ik 
als window voor vragen e.d. maar ook 
om file selecties of meerdere records 
te tonen. Een aantal regels overschrij- 
ven gaat sneller dan het omschakelen 
van schermen. 

Op regels 20 t/m 24 (dus onder 
screen) wordt het hoofdmenu ge- 


schreven. Vanuit het hoofdmenu 
worden andere sub-menu’s aange- 
roepen en deze overschrijft weer re¬ 
gels 20 t/m 24 ect. ect. 

- Al de onderdelen hebben een 10 cij- 
ferig nummer. Nu zijn er een aantal 
onderdelen waarbij alleen de laatste 2 
nummers anders zijn. Het sorteren 
gebeurt alleen op de eerste 8 letters/ 
cijfers. Nu is dit voor mij niet zo'n pro¬ 
blem. Wel is het een probleem dat bij 
het zoeken naar dit nummer m.b.v. 
'locate' (verreweg het snelste zoek- 
commando), ARCHIVE altijd het ee¬ 
rste nummer met de eerste 8 gelijke 
cijfers/ letters pakt; het tweede met al¬ 
leen de laatste 2 anders is met locate 
domweg niet te vinden. Ik heb dit als 
voIgt opgelost: het programma vergel- 
ijkt het gewenste nummer met het ge- 
vonden record. Is dit nummer niet ex¬ 
act gelijk dan wordt de dbf nog een 
keer doorlopen maar nu d.m.v. het 
commando 'find', nu zal het gewenste 
record wel gevonden worden. Traag, 
maar wel effectief . . . Weet iemand 
hier een betere/snellere oplossing 
voor. Tot zover mijn ervaringen op 
ARCHIVE gebruik Vragen of aan- 
merkingen zijn van harte welkom, 

Ed Kats 

H.Bosmanslaan 100 
3144 LB MAASSLUIS 
01899-12594 

p.s. Weet iemand een manier om in 
ARCHIVE/SUPERBASIC te kunnen 
controleren op floppy-disk naam (dus 
de naam die een floppy krijgt bij het 
formatteren), zodat niet per ongeluk 
een file op een niet gewenst floppy 
wordt gezet. 
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Na enige tijd te hebben gewerkt met deze 
compiler ontstond er de behoefte om vele 
van de specifieke Ql Qdos functies te kun- 
nen gebruiken zoals Dir, CIs.Exec enz. De 
compiler is bijne geheel volgens de stan- 
daard definitie van Kernighan & Ritchie en 
de bijgeleverde bibliotheek van functies 
bevatten zogoed als geen Ql Qdos func¬ 
ties behalve een paar waarmee Qdos traps 
aangeroepen kunnen worden. 


QDOS DEMO C 

♦include <£lpl_stdio_h> 

♦include <flp2_qdos_h> 

int _mneed = 5120; 

/* Nodig omdat C programmas al het geheu- 
gen 

'opvreten' en nu alleen 5120 bytes. */ 

main 0 /* QDOSDEMO_C */ 

( 


Met behulp van deze functies hebben wij dan ook de hier- 
onder genoemde C functies gemaakt: 

exec (filenaam, wait) 

fat (stream, line, col) 

fborder (stream, breedte, kleur) 

fcls (stream, gedeelte) 

fcsize (stream, breedte, hoogte) 

fcursdown (stream) 

fcursleft (stream) 

fcursright (stream) 

fcursen (stream, modus) 

fcursor (stream, xpos, ypos) 

fcursup (stream) 

fdir (device, bestemming) 

fflash (stream, modus) 

fink (stream, kleur) 

fnextline (stream) 

fover (stream, modus) 

fpan (stream, aantal_pixels, gedeelte) 

fpaper (stream, kleur) 

fscroll (stream, aantal_pixels, gedeelte) 

fstrip (stream, kleur) 

ftab (stream, col) 

funder (stream, modus) 

fwindow (stream, borderkleur, 

borderbreedte, breedte, hoogte, 
xpos, ypos) 

De functies geven alle een integer waarde terug welke de 
standaard Qdos foutmelding bevat, u bent vrij om deze te- 
ruggegeven waarde te gebruiken of niet. 

Alle functies welke beginnen met een 1' zijn dmv. macro's 
ook beschikbaar zonder de 1' en werken dan op de stdout 
file [ voorbeeld cls() ].De funcie exec(filenaam.wait) is ook 
beschikbaar als macro in de vorm van exec_w(filenaam). 


char fnam[36],*fgetchid(); 

/* filnaam array */ 

int fout; /* qdosfout variabele */ 

mode(4); 

printf("Dit is een demo van de qdos 
functies\n"); 

printf("Stop een programmaschyf in 
drive 1 "); 

pause(); 
els () ; 

dir("flpl_"); 
next line(); 
at (17,0) ; 

printf("\nGeef de filenaam voor het 
programma om te runnen "); 
scanf("%36s",fnam); 
fout=exec_w(fnam); 
els () ; 

window(7,1,512,256,0,0); 

/* Border wit 1 pixel, 512x256 op 0,0 */ 
if (fout) 

printf("Qdos fout nummer:%d gevonden ", 
fout); 

else 

printf("Het programma gerund vanuit C 
is afgelopen "); 

pause(); 

printf("Stop de orginele disk terug in 
drive 1 "); 

pause(); 
els () ; 

fdir("flpl_","scr_420x80a46x175"); 
printf("Einde demo"); 

} 

pause() 

{ 

while (kbhitO != 0) 
getchar(); 


Hier voIgt een demoprogramma gelist wat een aantal van 
de functies gebruikt. 


printf("Druk op een toets\n M ); 
while (kbhitO == 0) ; 
getchar(); 


} 


722 












Indian uw programma een van daze functies gebruikt moat 
u aan hat begin van uw programma een #include 
<XXX_qdos_h> waarbij XXX da drive is waar da file staat. 
Tevens is bijgevoegd da header file QDOS_H en de linker 
controlfile QDOSDEMOJJNK. 

De procedure die u moot volgen Is: 

Complleer de QDOS_C file 
Rename de output file van de compiler QDOS_o 
naar de file QDOSJ, dit nu wordt dan de bibllo- 
theekfile van waaruit de functies kunnen word- 
en aangeroepen. 

complleer het demoprogramma QDOSDEMO_C 
Link nu het geheel met de linker controie file 
genaamd QDOSDEMOJink. 

Alle compilaties en linkings moeten zonder errors en/of 
warnings kunnen verlopen. 

Het demoprogramma doet het volgende: 

Kiest mode 4, wist scherm, toont directory van flpl, vraagt 
om filenaam van een executable file, start dit programma 
met exec_w, veranderd het window naar 512x256 
punten met een witte border van 1 pixel, en toont vervol- 
gens een directory op een deel van det scherm. 

Het is geen hoogvlieger van een programma maar het 
toont wel wat de nieuwe functies kunnen doen. 

Veel succes. 

W. van Dieren 
G. M. van Rooyen 

Aaangepaste QDOS_H FILE 

* 

★ 

* The following structure contains the 
registers that are used to interface 

* with the operating system via the QDOSx 
functions. 


*/ 

struct REGS 

{ 

long DO,D1,D2,D3; 
char *A0,*A1,*A2,*A3; 

}; 

/ * ★ 

* 

* Error codes returned by QDOS 


*/ 

♦define 

*/ 

ERR_NC -1 

/* 

operation not complete 

♦define 

ERR_NJ -2 

/* 

not a valid job */ 

♦define 

ERR_OM -3 

/* 

out of memory */ 

♦define 

ERR_OR -4 

/* 

our of range */ 

♦define 

ERR_BO -5 

/* 

buffer overflow */ 

♦define 

ERR_NO -6 

/* 

channel not open */ 

♦define 

*/ 

♦define 

ERR_NF -7 

/* 

file or dev. not found 

ERR_EX -8 

/* 

file already exists */ 

♦define 

*/ 

♦define 

ERR_IU -9 

/* 

file or device in use 

ERR_EF -10 

/* 

end of file */ 

♦define 

ERR_DF -11 

/* 

drive full */ 

♦define 

ERR_BN -12 

/* 

bad device name */ 


♦define 

ERR_ 

_TE 

-13 

/* 

transmission error 

♦define 

ERR_ 

_FF 

-14 

/* 

format failed */ 

♦define 

ERR_ 

BP 

-15 

/* 

bad parameter */ 

♦define 

ERR_ 

_FE 

-16 

/* 

file error */ 

♦define 

V 

♦define 

*/ 

♦define 

ERR_ 

XP 

-17 

/* 

error in expression 

ERR_ 

_ 0V 

-18 

/* 

arithmetic overflow 

ERR_ 

_NI 

-19 

/* 

not implemented */ 

♦define 

ERR_ 

RO 

-20 

/* 

read only */ 

♦define 

ERR_ 

BL 

-21 

/* 

bad line in BASIC *, 


/* 

* the following structure defines the 
standard 

QDOS file header 

*/ 


struct FS_HEADR 
{ 



long 

length; 

/* 

file 

length */ 


char 

access; 

/* 

file 

access type 

*/ 


char 

type; 

/* 

file 

type */ 


char 

info(8); 

/* 

type 

dependent info 

*/ 


short 

name sz; 

/* 

size 

of name 

*/ 


char 

name(36]; 

/* 

name 

area */ 


char 

reserved(12] 

1 ;/* 

reserved for time & 


date */ 

}; 

/* 


* de volgende zyn macros voor de eigen 
uitbreidingen van de lib qdos_l 
*/ 


extern 
mathm. 
#define 
#define 
#define 
#define 
#define 
♦define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
♦define 
#define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
(stdout, 


char mstack[]; /* storage room f 

stack */ 

els () fels(stdout,0) 

dir(a) fdir((a),"scr_") 
point(a,b) fpoint(stdout,a,b) 
exec_w(a) exec(a,l) 
at(a,b) fat(stdout,a,b) 
border(a,b) fborder(stdout,a,b) 
csize(a,b) fcsize(stdout,a,b) 
cursdownO fcursdown (stdout) 
cursleft () fcursleft(stdout) 
cursrightO fcursright (stdout) 
cursen(a) feursen(stdout,a) 
cursor(a,b) fcursor(stdout,a,b) 
cursupO f cursup (stdout) 
flash(a) fflash(stdout,a) 
ink(a) fink(stdout,a) 
next line () fnext line(stdout) 
over(a) fover(stdout,a) 
pan(a,b) fpan(stdout,a,b) 
paper(a) fpaper(stdout, a) 
scroll(a,b) fscroll(stdout, a, b) 
strip(a) fstrip(stdout, a) 
tab(a) ftab(stdout, a) 
under(a) funder(stdout, a) 
window(a,b,c,d,e,f) fwindow 
, a, b, c, d, e, f) 


or 
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QDOS DEMOJJNK 

* Template control file for QLC 

* 

* Ordering of sections 

* 

RELOC startup 
SECTION text 
SECTION data 
SECTION udata 
SECTION end 
★ 

* Start with initialisation code 

* 

INPUT FLPl_startup 
★ 

* Now include the user module (from command 
line) 

* Any other user modules must be included 
at this point with their own INPUT 
instruction. 

* 

INPUT * 

★ 

* Now search library for all undefined 
references 

LIBRARY FLP2_qdos_l 
LIBRARY FLP2_qlc_l 


Meer weten over C 

Indien er belangstelling is om meer over 
C-uitbreidingen te vertellen zijn wij graag bereid 
in een volgend artikel hier verder op in te gaan. 
Aanvullingen op deze uitbreidingen zijn ook 
van harte welkom, dan kunnen wij gezamelijk 
een bibliotheek opzetten. 

Ook overwegen wij deze uitbreidingen van C 
onder te brengen bij de Databank of de 
cartridgeservice, wanneer dat voor U 
interessant is dan horen wij dat graag. 

Ook andere vragen over de programmeertaal C 
zijn van harte welkom zodat het misschien 
mogelijk is om een maandelijkse C- Rubriek te 
starten. 

Uw reactie gaarne door middel van een briefje 
of een telefoontje aan het redactieadres. 

Gerard van Rooijen 
Wim van Dieren 

Redactieadres: 

Gruttostraat 15 
3435 DJ Nieuwegein 
Tel. 03402 - 33027 


QDOS C 

#define MT_CJOB 0x01 
#define FS_LOAD 0x48 
#define MT_ACTIV 0x0a 
#define HEADR 0x47 
♦define IO_OPEN 0x1 
♦define IO_FSTRG 0x03 
♦ define IO_CLOSE 0x02 

♦include <flpl_stdio_h> 

♦include <flp2_qdos_h> 

♦include <flpl_fnctl_h> 

static char mstack(125J; 

/* storage room for mathm. stack */ 

exec(fname,wait) 

char *fname; 
int wait; 

{ 

short int timeout- -1; 
struct REGS in,out; 
struct FS_HEADR header; 
int file,fout; 

unsigned long int *dataspace; 
char *chanid,*getchid(); 

/* tracht eers de file te openen. */ 
file - open(fname,0_RDONLY || 0_RAW); 
if ( file — -1 ) 

fout - ERR_NF; 
else { 

/* lees nu de header info via 
FS_HEADR */ 

chanid - getchid(file); 
in.DO - HEADR; 

in.D2 - (short int) sizeof(header) 
in.D3 - timeout; 
in.A0 - chanid; 
in.Al - (char *) &header; 
fout - qdos3(&in,&out); 

/* check de filetype (1 is exec 

file) */ 

if (header.type !- 1) 
fout - ERR_NJ; 
else { 

/* tracht de job te creeren 

V 

dataspace - (unsigned long 
*) 4header.info[0]; 

in.DO - MT_CJOB; 
in.Dl - -1; 

/* not independent job */ 
in.D2 - header.length; 
in.D3 - *dataspace; 
in.Al - 0; 

fout - qdosl(&in,&out); 
if (fout “ 0 ) { 

/* laad nu de file in 
het geheugen */ 
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read(file,out.AO,header.length); 


l; 


) 


/* tracht nu de job te 
activeren */ 
in.DO = MT_ACTIV; 
in.Dl * out.Dl; 
in.D2 * (char) 8; 
if ( wait ) 

in.D3 ■ (short) - 


else in.D3 = (short) 0; 
fout * qdosl(&in,&out); 


} 

) 

/* close the file now */ 
close(file); 
return(fout); 


fat(stream,line,eol) 

int *stream,line,col; 

{ 

struct REGS in,out; 
in.DO - 0x10; 
in.Dl - col; 
in.D2 - line; 
in.D3 - -1; 

in.AO - (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 


fborder(stream,width,colour) 

int *stream,width,colour; 


struct REGS in,out; 
in.DO - OxC; 
in.Dl - colour; 
in.D2 - width; 
in.D3 » -1; 

in.AO - (char*)fgetchid(stream); 


/* wist cursorlijn */ 
case 4: in.DO - 0x24;break; 

/* wist van cursor tot eind cursor¬ 
lijn*/ 

default: return(ERR_BP); 

/* foute boel */ 

) 

in.D3 - -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 


fcsize(stream,width,height) 

int *stream,width,height; 

{ 

struct REGS in,out; 
in.DO = 0x2D; 
in.Dl » width; 
in.D2 - height; 
in.D3 - -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 

fcursdown(stream) 

int *stream; 

{ 

struct REGS in,out; 
in.DO - 0x16; 
in.D3 = -1; 

in.A0 - (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 


fcursleft(stream) 

int *stream; 


return(qdos3(&in,&out)); 

} 


fels(stream,part) 

int *stream,part; 


struct REGS in,out; 
switch(part) 

{ 

case 0: in.DO - 0x20;break; 

/* wist gehele window */ 
case Is in.DO - 0x21;break; 

/* wist boven cursorlijn */ 
case 2: in.DO - 0x22;break; 

/* wist onder cursorlijn */ 
case 3: in.DO - 0x23;break; 


{ 

struct REGS in,out; 
in.DO - 0x13; 
in.D3 - -1; 

in.A0 * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

) 

fcursright(stream) 

int *stream; 

{ 

struct REGS in,out; 
in.DO * 0x14; 
in.D3 = -1; 

in.A0 « (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 
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f cur s en(stream,modus) 
int *stream,modus; 

{ 

struct REGS in,out; 
in.DO - OxE; 

if (modus--0) in.DO - OxF; 
in.D3 - -1; 

in.AO - (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 


fcursor(stream,xpos,ypos) 

int *stream,xpos,ypos; 

{ 

struct REGS in,out; 
in.DO - 0x17; 
in.Dl * xpos; 
in.D2 * ypos; 
in.D3 - -1; 

in.AO - (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

) 

fcursup(stream) 

int *stream; 

{ 

struct REGS in,out; 
in.DO - 0x15; 
in.D3 * -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 


fdir(device,destination) 

char *device,*destination; 

{ 

int fout,namelen,teller; 
short int timeout - -l,*flen; 
struct REGS in,out; 
struct FS_HEADR header; 
char *chanid,*name,qdosdev 
[34 ],*getchid 
0 ; 

FILE *outfile,*fopen(); 

/* OPEN file naar DEVICE */ 
/*************************/ 

/* bepaal lengte devicenaam */ 
for ( namelen - 0 , name - device ; 

*name !- 0 ; name++ , namelen++ 

) ; 

flen * (short int *)&qdosdev[0]; 

*flen - namelen; 

/* maak string qdos compatibel */ 
name * device; 

for (teller-2;teller < namelen+2; 


teller++) { 

qdosdev[teller] - *name; 
name++ ; 

) 

/* laad registers met de juiste waard- 
en voor 10.OPEN 

Dl.L JOB ID 

D3.L CODE bit 4-open directory 
AO ADRES OF CHANNEL NAME */ 
in.DO - I0_0PEN; 
in.Dl - -1; 
in.D3 - 4; 

in.AO - &qdosdev[0]; 


/* roep de trap aan 

TRAP 2 DO—$01 */ 
fout - qdos2(&in,&out); 
/* RETOUR IN REGISTERS 
D1 JOB ID 
AO CHANNEL ID */ 
chanid - out.AO; 


/* INDIEN GELUKT DAN */ 

if ( fout -- 0 ) { /* no 

error */ 

/* OPEN DESTINATION */ 
outfile - fopen( destina- 
tion,"wa+ M ); 

/* INDIEN GELUKT DAN */ 
if ( outfile — NULL ) /* 

oeps er is iets mis */ 

fout - ERR_NF; 
else { 

/* LAAD DE DIRECTORY IN HET 
GEHEUGEN */ 

/ 


******************************★****★★/ 

out.Dl - (short int) sizeof 

(header); 

/* LAAD de REGISTERS 

D2.W lengte v/d buffer 

D3.W timeout 

AO channel id 

A1 base of buffer */ 

in.DO - I0_FSTRG; 

in.D2 - (short int) sizeof 

(header); 

in.D3 - timeout; 
in.AO - chanid; 
while ( out.Dl -- (short 
int) sizeof(header)) { 

in.Al -(char *) 


^header; 
IO.FSSTRG */ 


/* roep TRAP 3 $03 

qdos3(&in,&out) ; 

/* COPIEER DIRECTORY 


NAAR DESTINATION */ 

/ 

*************************************/ 

if (header.name^sz !■ 

0 ) 

fprintf(out- 
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file,"\n%-32s %1Old”,^header,name[0],(long 
int *)header.length); 

} 

/* close the dest file */ 
fclose (outfile); 

} 

/* close the device file */ 
in.DO = IO_CLOSE; 
in.AO = chanid; 
qdos2(&in,&out); 

} 

return(fout); 

} 

f flash (stream, modus) 

int *stream,modus; 


{ 

struct REGS in,out; 
in. DO = 0x2A; 
in.Dl = modus; 
in.D3 - -1; 

in.AO = (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

) 

fink(stream,colour) 

int *stream,colour; 

{ 

struct REGS in,out; 
in.DO - 0x29; 
in.Dl - colour; 
in.D3 “ -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 

fneztline(stream) 

int *stream; 

{ 

struct REGS in,out; 
in.DO - 0x12; 
in.D3 - -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 

fover(stream,modus) 

int *stream,modus; 

{ 

struct REGS in,out; 
in,DO =■ 0x2C; 
in.Dl * modus; 
in.D3 - -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 

fpan(stream,distance,part) 

int *stream,distance,part; 

{ 

struct REGS in,out; 


switch(part) 

{ 

case 0: in.DO = OxlB;break; 

/* verschuift gehele window */ 
case 3: in.DO = OxlE;break; 

/* verschuift cursorlijn */ 
case 4: in.DO * OxlF;break; 

/* verschuift rechts van cursorlijn 

*/ 

> 

in.Dl =* distance; 
in.D3 = -1; 

in.AO * (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 

fpaper(stream,colour) 

int *stream,colour; 

{ 

struct REGS in,out; 
in.DO = 0x27; 
in.Dl = colour; 
in.D3 * -1; 

in.A0 = (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

) 

fscroll(stream,distance,part) 

int *stream,distance,part; 


struct REGS in,out; 
switch(part) 

{ 

case 0: in.DO = 0xl8;break; 

/* scrollt gehele window */ 
case 1: in.DO = 0x19;break; 

/* scrollt boven cursorlijn */ 
case 2: in.DO - 0x1A;break; 

/* scrollt onder cursorlijn */ 

} 

in.Dl *= distance; 
in.D3 - -1; 

in.A0 = (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 

fstrip(stream,colour) 

int *stream,colour; 

{ 

struct REGS in,out; 
in.DO = 0x28; 
in.Dl = colour; 
in.D3 = -1; 

in.A0 = (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 

} 
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ftab(stream,col) 
int *stream,col; 


{ 


struct REGS in,out; 
in.DO = Oxll; 
in.Dl = col; 
in.D3 = -1; 

in.AO = (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 


} 


funder(stream,modus) 

int *stream,modus; 


{ 


struct REGS in,out; 
in.DO = 0x2B; 
in.Dl = modus; 
in.D3 = -1; 

in.AO = (char*)fgetchid(stream); 
return(qdos3(&in,&out)); 


fwindow(stream, bordercolour, border- 
width, width, height, 

xpos, ypos) 

int *stream, bordercolour, borderwidth, 
width, height, xpos, ypos; 


{ 


short int xy[4]; 
struct REGS in,out; 
xy[0] - width; 
xy[1] « height; 
xy[2] - xpos; 
xy[3] * ypos; 
in.DO « OxD; 

in.Dl = (char) bordercolour; 
in.D2 * (short) borderwidth; 
in.D3 - (short)-l; 

in.AO * (char *)fgetchid(stream); 
in.Al = (char *)&xy[0]; 

return(qdos3(&in,&out)); 


mode(x) 
of 8 */ 

short int x; 


/* SETS SCREENMODE 0 


{ 


struct REGS in,out; 
in.DO * 0x10; 
in.D3 = (short) -1; 
in.Dl * (short) x; 
in.D2 = (short) -1; 

/* READ DISPLAY TYPE */ 

return(qdosl(&in,&out)); 


} 



Van de vier XCHANGE-programma's die iedere 
QL-gebruiker bij zijn toestel cadeau kreeg, 
spreekt ARCHIVE bij sommigen het meest tot de 
verbeelding. Het is en blijft dan ook een zeer 
krachtig systeem, met zijn multifile-capability, 
zijn screen layout editor, en vooral zijn gestruc- 
tureerde macrotaal. 

bij dBase III en III+). Dit speelt vooral 
mee voor wie allerlei dynamische 
screen-formatting foefjes wil uithalen, 
maar niet voor de database-operaties 
stricto sensu (zoeken, extraheren, 
sorteren,..). Hiervoor is de grote be- 
perking, dat het hele klereding recht- 
streeks op de file werkt, als sort- 
merge database. Een voordeel hier- 
van is, dat Archive weinig geheugen 
verbruikt (maar wacht tot je meerdere 
orderings en selects op een grote file 


Evenwel, naast de diverse bugettes 
die zelfs in Archive 2.36 nog steeds 
aanwezig zijn, en het ontbreken van 
een serieus mailmerge-systeem (de 
halfslachtige programmatuur die som- 
mige third-party softwarehuizen vers- 
jacheren niet te na gesproken) heeft 
het hele systeem een grote beperk- 
ing: zijn T-R-A-A-G-heid. Een deel van 
de blaam kan op de macrotaal gestok- 
en worden, die uiteraard als interpret¬ 
er draait (dit is overigens ook het geval 


opeenstapelt): de snelheid is er dan 
ook wel naar. Het leed kan wel worden 
verzacht door de hele _dbf-file naar 
ramdisk te transfereren voor gebruik, 
en naar floppy na updaten, maar echt 
snel is nog steeds anders (je moet im- 
mers nog steeds via het QDOS filing 
system passeren). 

Multitasking is en blijft een nationale 
ramp, tenzij grof geschut als Taskmas¬ 
ter, QRAM, of JAM (Job Applications 
Manager) wordt ingeschoten. Ook zit 
men vastgenageld aan fixed format 
records: zo is het bv. een heksentoer 
om met een enigzins aanvaardbare 
databank voor boeken en tijdschriftar- 
tikels door elkaar voor de dag te ko- 
men. En de screen- routines: 't is 
eraan te zien dat XCHANGE op termi¬ 
nals van een mainframe werd ontwik- 
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keld. 

Een slak met AIDS lijkt soms nog raze- 
ndsnel HI 

SPEEDSCREEN biedt soms de 
opbssing, maar veroorzaakt dan weer 
andere problemen (bij mij: crash boem 
frut!!). 


AANPAK 


Sector Software, makers van solide 
produkten als Taskmaster en Spell¬ 
bound, besloten dat hier nog een gat 
in de markt lag. Gebruikmakend van 
de onvolprezen TURBO-compiler en 
de bijbehorende dito Toolkit, schre- 
ven zij een nieuw database-pakket, 
genaamd FLASHBACK. Het komt uit 
voor de in feite belachelijke prijs van 
£25 (vergelijk even met sommige flut- 
games !), en multitaskt probleemloos. 

De filosofie van het produkt staat 
haaks op die van Archive. 

Snelheid, flexibiliteit van het bestand 
en bedieningsgemak primeren. 
Overwegende dat elke zichzelf re- 
specterende QL-gebruiker nu wel 
een geheugenuitbreiding zal hebben 
(bv. de miraculeuze Trump Card), 
werd daarom voor een memory- 
resident aanpak gekozen. Zodat ook 
voor search.sort en merge, SEARCH_ 
MEMORY, MOVE_MEMORY resp. de 
snelle stringbehandeling van Turbo 
hun beste beentje konden voorzet- 
ten. 


HAAS EN SCHILDPAD 


Wegens de memory-residente op- 
bouw, stond ook niet in de Grondwet 
van 1776, dat de records een vast for- 
maat moesten hebben. De auteur 
(Peter J.Jefferies, van o.m. Taskmas¬ 
ter en Spellbound) implementeerde 
dan ook een variabele recordstruc- 
tuur: je kan in elk record fields bijvoe- 
gen of wegdoen naar believen, en 
zelfs een sub-recordstructuur defi- 
nieren (bv. voor adressen 'op het 
werk': departement, gebouw, binnen- 
lijn,...). 

De makers claimen dat de hele affaire 
50 a 100 keer sneller gaat dan Ar¬ 
chive. Wel, ik heb de zaak een keer 
getest op een file met 450 records (75 


K), en zou het nog geloven ook. Sea¬ 
rches zijn gedaan voor je goed en wel 
de entertoets hebt losgelaten I Sorts 
gebeuren terwijl je even een oogje pi- 
nkt naar de buurvrouw (vroeger kon ik 
op diezelfde file probleemloos sorter- 
en terwijl ik de koffie opzette, of om- 
gekeerd al naargelang het standpunt 
(dan nog op ramdisk: op disk had ik 
nog probleemloos kunnen wachten 
tot hij klaar was en hem uitdrinken !). 
Groupings (selecties) gebeuren even 
waanzinnig snel. 


HELLO GOODBYE 


Ook multitaskt de hele affaire met de 
ogen dicht. Bij het opstarten wordt het 
hele ding resident gemaakt (default 
windowsizes en databases kunnen 
worden ingepatched met CON- 
FIG_BAS). Even ALT \ drukken (een 
andere toets kan worden geprogram- 
meerd) en het ding komt op, met real 
windows (geen QRAM meer nodig !). 
ESC en het programma gaat even een 
dutje doen, terwijl u voortwerkt aan 
wat u bezig was (bv. een paper schrij- 
ven). Heel plezant is het TRANSFER- 
commando: met CTRL-T kan het hui- 
dige record (of elk field daaruit) via de 
keyboard queue worden 'ingetypt' in 
het lopende programma (nooit meer 
zitten mieren met kleine stukjes papier 
als je een adres of referentie moet op- 
zoeken !). Snel is het systeem nu wel 
niet, en QRAM krijgt uiteraard waa- 
rschijnlijk meteen een indigestie. 
Maar voor het gestelde doel voldoet 
het uitstekend. 

Voor een ding verdient de program¬ 
mer wel een pak billenkoek: het ge- 
bruik van CTRL-C als commando om 
een record te creeren. Wie nog een 
beetje wil multitasken, moet dan in zijn 
boot een ander karakter definieren als 
window-omschakelaar door POKE_W 
163986,c, waarbij c de code voorstelt 
van het karakter (bv. 31 voor CTRL- 
SHIFT-ESC>. 

Om Archive dbf's te converteren, met 
of zonder wijziging van de record- 
structuur, is een programmaatje bijgel- 
everd waarmee een kind de was kan 
doen. Dat zou dus geen beletsl mo- 
gen zijn. Het boeleke lijdt klaarblijkelijk 
wel nog aan kinderziekten: een _dbf 
van 70 k werd wel in een dikke minuut 
geconverteerd, maar bij een tweede 


poging (met 30 nieuwe records bijge- 
voegd) slikte hij wel de nieuwe 
records in, wat ik ook probeerde. Tot 
ik ontdekte... dat ik vergeten was op- 
nieuw te exporteren. Zo moeilijk was 
het nu ook niet geweest om recht- 
streeks van de file af te werken. 


COMING SOON 


Globaal vertoont het hele systeem 
een groot gebrek: de beperkte bestu- 
ringsmogelijkheden. OK, supersnel 
interactief werken is goed en wel, 
maar wat als je wil mailmergen, mooie 
geformatteerde listings producer- 
en,...? Wat dat betreft, kan je best Ar¬ 
chive nog even houden. De auteur 
wist dat ook wel, en kondigt daarom 
twee nieuwe produkten aan: eerstens 
een Superbasic-interface (hetgeen 
alles zou oplossen, en waarschijnlijk 
ook zal toelaten de eigen databank- 
applicaties met TURBO te compileren. 
Zulk een systeem zou vrijwel uniek in 
de micro en PC wereld zijn qua perfor¬ 
mance en veelzijdigheid, en in feite 
de uitwerking zijn van Stephan Ver- 
beecks concept uit een ouder kilobyt- 
je. Tweedens (en logisch aansluitend 
hierop): een report generator sys¬ 
teem, dat alle mogelijke mailmerge- 
achtige toestanden de baas moet 
kunnen en nog veel meer. 

Het genereren van bv. een verslag, 
formulier,... in het juiste formaat vanuit 
Archive gaat wel, maar vereist grote 
handigheid met de commandotaal, 
terwijl van flexibiliteit (snel op zicht iets 
wijzigen aan de layout) hoegenaamd 
geen sprake kan zijn. Juist report- 
generatie is nu het grote (en mijn be- 
scheiden inziens het enige signifi- 
cante) voordeel van dBase III over Ar¬ 
chive. Kan dit opgevangen worden, 
heeft de professionele QL-gebruiker 
(en die zijn er!) weer een reden min¬ 
der om naar allerlei nagemaakte IBM- 
schroot over te schakelen. 

Wij wachten vol interesse op beide 
produkten. Ondertussen zal voor min¬ 
der arcane databank-toepassingen 
Flashback nu reeds gouden diensten 
bewijzen aan o.m. ondergetekende. 

Uit Kilobytje 
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Een aspect van Machine Code Programming 
hebben we nog niet behandeld; het schuiven 
van data. Vooral in rekenkundige berwerking- 
en is schuiven belangrijk. 


Zoals we al hebben gezien bij binair 
rekenen, kunnen we de getallen 2 
en 4 respectievelijk voorstellen door 
%00000010 en %00000100. Het bit 
schuift n positie naar links. Verme- 
nigvuldigen we 4 opnieuw met 2, 
dan zien we dat %00001000=8 
ontstaat. Hela, dat zou betekenen dat 
het naar links schuiven van een byte 
over 1 positie overeenkomt met het 
vermenigvuldigen met twee!. Werkt 
dit ook voor andere getallen? 
%00010011 shift left geeft 
%00100110 
19x2= 38 

Ja dus. U ziet al dat voor het naar 
links schuiven in het engels Shift Left 
wordt gebruikt. Het blijkt dat we 
kunnen vermenigvuldigen met 2 A n 
door een bepaald byte n posities naar 
links te schuiven. 7x8 is dan dus 7 bi¬ 
nair geschreven, en dan 3 posities 
(8=2 A 3) naar links geschoven. 

Aan de rechter zijde worden er nul- 
len 'ingeschoven'. 

Het resultaat is dan 
%00111000=56. 

Dit werkt natuurlijk alleen als er rechts 
nullen worden ingeschoven. Hier- 
voor is een speciale instructie: ASL; 
arithmetic shift left. 

Kunnen we ook naar rechts schui¬ 
ven? Ja; dan vermenigvuldigen we 
niet met twee, maar delen we door 
twee. 

De deling die wordt uitgevoerd hoeft 
natuurlijk niet te 'passen' want 7/2=3 
rest 1. Voeren we een shift right uit 
op het getal %00000111, dan wordt 
de meest rechtse T eruit gescho¬ 
ven. In het conditie code register, 
ook wel status register genoemd (zie 
beschrijving van de processor) is een 
bit gereserveerd. Dit bit heet carry bit. 
Het bit dat bij een shift operatie uit 
een operand 'valt' wordt 
'opgevangen' in het carry bit. 


Zo zal een shift left van 
%10001000 het resultaat 
%00010000 opleveren, met een car¬ 
ry op T gezet. Met behulp van branch 
instructies kunnen we dan springen 
als weditwensen: 

Branch if Carry Set(BCS). 

Ook kunnen we springen als het bit 
niet gezet is; dan gebruiken we de 
instructie Branch if Carry Clear (BCC). 
Deze laatste opdracht zal uitgevoerd 
worden als we bijvoorbeeld 
%01101101 naar links schuiven. Dan 
komt er een ’O' in het carry bit van het 
SR te staan. Clear is het engelse 
woord voor 'schoon'. 'Niet gezet' be- 
tekent 'niet op "1"' en dus schoon, 
clear. 

Zouden we %01101101 echter naar 
rechts schuiven, dan wordt het carry 
bit op '1' gezet, en wordt de opdracht 
BCC niet uitgevoerd. (carry is niet 
'dear*) 

Er zijn verschillende methodenom te 
schuiven. We kunnen een shift op¬ 
eratie uitvoeren, waarbij we altijd 
een 'O'inschuiven. Dit zijn de logical 
shift operaties: LSR en LSL voor 
rechts- en links schuiven respectie¬ 
velijk. We kunnen ook het bit dat er 
rechts (of links) 'uitvalt' er respectie¬ 
velijk links (of rechts) weer inschui¬ 
ven. We doen dan net of het linker 
deel van de data vast zit aan het 
rechter deel, en 'roteren' dan de in- 
houd. Dit zijn de Rotate operaties: 
ROR en ROL voor Rotate Over Right 
(roteer rechts) en Rotate Over Left. 
Voorbeeld: 

Rotate Over Right van 
%11000110 levert %01100011 op. 
De’O’die er rechts uit is geschoven 
wordt er links weer in geschoven. 
Tegelijkertijd wordt er echter ook een 
kopie van het bit gemaakt dat deze 
reis maakt: naar het carry bit. In dit 
voorbeeld zal de 'O' dus naar het car- 
rybit gekopierd worden. We kunnen 


dan weer een actie ondernemen met 
de instructies BCC of BCS als we dit 
wensen. 

Zojuist heb ik de ASL en ASR operat¬ 
ie genoemd. Hier is iets speciaals 
mee aan de hand. De ASL operatie 
schuift, net als de LSL, een 'O' rechts 
in de data die we onder handen heb¬ 
ben. De ASR echter, kopiert het 
meest linkse bit en schuift dat op¬ 
nieuw links naar binnen. Een ASR 
van %00010010 levert ‘dus (de 'O', 
het meest linkse bit wordt gecopierd) 
%00001001 op. Rechts valt er een 
'1 ’ uit, en die gaat naar het Carry bit in 
het SR. Een ASR van %10001010 
levert %11000101 op!. Het meest 
linkse bit, een '1' wordt gekopierd, en 
opnieuw links ingeschoven. De '0' 
die er rechts uit valt, gaat weer naar 
het C bit van het SR. 

Het kopieren van het meest linkse bit 
heeft tot gevolg dat het teken van de 
data bewaard blijft. Ik heb U nog 
niet uigelegd hoe negatieve getallen 
worden weergegeven. Als we ge- 
bruik maken van het zogenaamde 
twee-complements stelsel, is een 
negatief getal te herkennen aan zijn 
eerste bit. Als een getal uit 8 bits be- 
staat, gebruiken we 7 bits om een ge¬ 
tal aan te geven, en 1 bit voor het tek¬ 
en. Het meest linkse bit is het teken 
bit. Is dit bit '1' dan gaat het om een 
negatief getal. W hebben nog 7 bits 
over, en kunnen dus nog de getallen 
0 to 127 maken. Met het tekenbit 
kunnen we V of ’-' aangeven. 

Totaal kunnen we nu dus met 8 bits 
van -127 tot +127 tellen. 127 wordt 
voorgesteld als %01111111, aftel- 
lend komen we tot %00000001 
voor het getal 1, %00000000 betek- 
ent het getal nul, en als we verder 
gaan aftellen, is het getal -1 gelijk aan 
0-1. Aftrekken gaat door te 'lenen' bij 
het 9e bit. Dit zit niet in het byte, maar 
denken we erbij. 

De aftreksom wordt dan: 
bit 98 0 

%100000000 
% 00000001 - 


% 11111111 
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Mini wordtdus door 8 '1'(nen) voor- 
gesteld. We kunnen verder naar ben- 
eden aftellen. -2 is -1-1 = 

%11111111 

% 00000001 - 


%11111110 

We zien dat het eerste bit '1 * blijft, en 
dus een teken aan geeft. Zo kun¬ 
nen we verder aftellen tot-127. Dit 
wordt voorgesteld als %10000001. 
Probeert U eens te rekenen met wat 
negatieve en positieve getallen door 
elkaar. U zult zien dat U geen moeite 
heeft met aftrekken en optellen. Het 
aftrekken is gewoon het optellen met 
een negatief getal. 

Het omrekenen van een positief naar 
een negatief getal gaat eenvoudig: U 
neemt de binaire voorstelling van het 
getal dat U negatief wilt maken. Van 
iedere 1 maakt u een 0 en omge- 
keerd. Dit heet inverteren. Vervol- 
gens trekt U 1 van het verkregen ge¬ 
tal af. Voorbeeld: -3 is het getal 3 
binair geschreven: %00000011 dit 
getal inverteren we: maak van 1 ->0 en 
0->1: %11111100 vervolgens tel- 

len we 1 bij dit getal op: 


%00000001 + 


%11111101 

Het antwoord kunnen we controleren 
door de optelling -3+3 uit te voeren. 
Hier moet 0 uitkomen: 

%00000011 
%11111101 


%100000000 

We zien dat dit klopt, maar dat we een 
'carry' hebben. Dit is echter precies 
het 9e bit dat we eerder hadden be- 
dacht om van te kunnen lenen toen 
we van 0 het getal T wilden af¬ 
trekken. Het op deze wijze rekenen 
met negatieve getallen heet, zoals 
eerder genoemd het two's comple¬ 
ment systeem. 

We kunnen bij de shift operaties niet 
alleen bit-voor-bit schuiven, maar ook 
met meerdere bits tegelijk. 

Als we het getal dat in DO staat vijf 
plaatsen naar links willen schuiven, 
dan gaat dat zo: LSL #5,DO 
Dit (immediate mode) kan tot maxi- 
maal 8 bits. Willen we meer bits 
schuiven, dan kunnen we het ge- 


wenste aantal in een ander dataregis- 
ter zetten, en vervolgens de op- 
dracht geven te schuiven. Het heeft 
natuurlijk weinig zin om meer dan 31 
bits te schuiven, omdat bij bijvoor- 
beeld een LSL het gehele datare- 
gister met'O'gevuld is. DO 12 plaat¬ 
sen naar links schuiven gaat als voIgt: 

MOVE.B #12,D1 

LSLL D1.D0 

We plaatsen het getal 12 in register 
D1, daarna moet de inhoud van regis¬ 
ter DO met de inhoud van D1 (zijnde 
12) naar links worden geschoven. Alle 
32 bits schuiven, omdat we detoe- 
voeging '.L' hebben gegeven. 

Het carry bit kan natuurlijk maar 1 bit 
bevatten. Daarom wordt bij een shift 
van meer dan 1 bit alleen het bit be- 
waard dat het laatst uit de data wordt 
geschoven. 

LSLL #3,#%01110111 

(geen toegestane instructie overi- 
gens, dit zou ook weinig zin hebben!) 
wordt dus %00001110 met een '1' in 
het carry bit. 

LSLL #4,#%01110111 

geeft %00000111, met een 'O' in het 
carry bit. 
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FORTRAN (FORmula TRANslator) 
werd reeds in 1954 door de Ameri- 
kaan J.Backus ontwikkeld, en is hier- 
mee de eerste hogere programmeer- 
taal die algemene acceptance mocht 
kennen. Zoals de naam zelf zegt, 
werd zij vooral ontworpen met het oog 
op de toepassingen, waarvoor uitein- 
delijk ook de eerste computers werd- 
en geconstrueerd: zuiver numeriek 
rekenwerk. Faciliteiten voor besta- 
ndsbeheer waren bijzaak. 

Ook stonden zgn.parsing algoritmes 
nog in veel minder dan kinderschoe- 
nen (ALGOL, waaruit later PASCAL 
ontstond, was de eerste taal waarvoor 
parsing en formele syntax werkelijk 
ernstig gebruikt werden), zodat een 
vrij rigiede, beknopte syntax gebe- 
zigd werd. Zo worden alleen de kol- 
ommen 7 t.e.m. 72 toegestaan voor 
statements, moeten voortgezette lij- 
nen worden aangeduid met een tek- 
en in kolom 6, en kan men slechts 
een statement per regel zetten. 

Deze eigenschappen, naast het sterk 
lineaire karakter van de gebruikelijke 
(en meest efficiente) Fortran- 
schriftuur zijn de grond voor sma- 
lende bijnamen als 'de GOTO-taal' of 
'dat stuk macro-assembler' uit de 
mond van gestruktureerde adepten, 
vooral van hen die bij PASCAL zwer- 
en. Veel van deze kritiek berust op 
zure druiven, maar zoals Henry Ford 
reeds zei: N geen idee is zo dwaas of 
er zit wel iets van waarheid in". Het is 
inderdaad zo, dat FORTRAN in vele 
opzichten een uitgesproken 'low- 
level language' (i.e.: dicht bij de ma¬ 
chine staande taal) is, zo sterk, dat er 
bijna de een-tot-een correspondents 
tussen source en object code bestaat 
die typerend is voor assembly lan¬ 
guage. Dit echter is voor de geschet- 
ste toepassing eerder een kracht dan 
een zwakte: compilers kunnen zoda- 
nig efficiente code genereren dat zij 
weinig trager loopt dan een origineel 
machinetaalprogramma. Nadeel is dan 
weer, dat 'gestruktureerde' concep- 
ten als WHILE-ENDWHILE.DO- 
BEGIN-END,... geheel ontbreken: 
prog ram ma's van door de wol geverf- 
de Fortranisten lijken welhaast op een 


de Fortranisten lijken welhaast op een 
spaghetti van labels, GOTO's, com¬ 
puted GOTOs, IF-GOTO's etc... 

Op andere gebieden wordt men juist 
weer verwend. Mathematische moge- 
lijkheden zijn groter dan in welke taal 
ook, op basis van 'schrijf-zoals-je- 
spreekt'. En geen andere taal heeft 
zodanig transparante voorzieningen 
voor geformatteerde output. Zo vol- 
staat om een M op N tabel in mooie 
kolommetjes (bv. 2 plaatsen na de 
komma) te laten afdrukken eenvou- 
digweg: 

DO 101=1,M 

10 WRITE(V(N(2X,F8.3)')(A 

(l,J),J=1,N) 

Terwijl in PASCAL alleen al om de af- 
druk op 2 plaatsen na de komma van 
een getal te doen je 3 of 4 proce¬ 
dures moet ineenklooien. 

Voor geen enkele taal bestaan bo- 
vendien zodanig effectieve optimali- 
satie-algoritmes (compilers met 3 of 4 
optimalisatieniveaus zijn op main¬ 
frames gemeengoed). 

Serieuze gebreken waren er ook wel. 
Zo bv. waren stringvariabelen niet 
voorzien (maar door een hoedentruc 
kan je wel vier letters in een integer in- 
lezen en verwerken; net zoals later C 
laat Fortran bijna alles toe wat naam 
heeft aangaande type-coercions). 
IF-THEN-ELSE bestond niet. 

Maar in de nieuwste ANSI-standaard 
(American National Standards Insti¬ 
tute, zoiets als ISO in Europa), FOR¬ 
TRAN 77, zijn deze beperkingen 
goeddeels opgeheven. Het type 
CHARACTER werd ingevoerd, samen 
met bewerkingen ermee die in PAS¬ 
CAL al een halve library vereisen. 
Voor de rekenfreaks werd het type 
COMPLEX aan de specificatie toege- 
voegd. 

Bit-manipulaties (SHIFT,AND,OR,...) 
zijn tegenwoordig gemeengoed. 
Alles samen maakt, dat FORTRAN als 
hoogperformante taal alleen van C 
ooit concurrence te vrezen zal krijgen 


(en dan zal men nog een wreed goeie 
library voor de derde letter moeten 
schrijven). 

Op micro's wordt deze taal een beetje 
ondergewaardeerd: echte rekenaars 
werken meestal op mini’s of main¬ 
frames, terwijl informaticastudenten 
om didactische redenen de voor iets 
anders eigenlijk te beperkte Pascal 
wordt opgedrongen. Niettemin is er 
wel een zekere vraag naar Fortran- 
compilers voor micro's, voor mensen 
die beroepshalve veel met de taal te 
maken hebben of gaan krijgen. Op 
vraag van enkele van deze mensen 
ging de club op zoek. 

En vond... Pro Fortran 77 van Prospe- 
ro, voor de zachte (ahem) prijs van ca. 
7000 BFr. Ondergetekende, beroep¬ 
shalve Fortranist tot in de kist, offerde 
zich op als proefkonijn. 

De package bestaat uit een manual 
van ca. 200 kleingedrukte A5- 
pagina's, waarin niet alleen de taal 
volledig wordt beschreven, maar ook 
veel nuttige informatie over de imple- 
mentatie gegeven. Zelfs een formele 
syntax-beschrijving (voor Fortran ei¬ 
genlijk overbodig) werd opgenomen. 
Het werk is wat droog-pedant, maar 
niettemin duidelijk geschreven. 

De compiler zelf komt op drie cartrid¬ 
ges, van iets betere kwaliteit dan we 
gewend zijn. Een EPROM bevat het 
runtimesysteem, en is vereist voor 
compilatie zowel als uitvoering (voor 
het laatste kan ook een runtime¬ 
systeem bijgelinkt worden). Het pro- 
gramma is niet beveiligd en - als je de 
manual leest - vrij eenvoudig te her- 
configureren voor disks. 

De compilatie gebeurt (zoals gewoon- 
lijk op micro’s) in twee fasen: de pars¬ 
ing (of syntactische analyse) en de 
codegeneratie. Een aantal opties zijn 
beschikbaar, zoals runtime checking 
op bereiken van arraydimensies en 
functie-argumenten, bijhouden van 
lijnnummers en identifiers voor run¬ 
time foutmeldingen, speed of space 
optimalisatie, en listing-opties (onge- 
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+ hexadecimale object-map, variable 
map (-cross-reference),...) Ook kan 
de default-grootte voor integers op 
16 of 32 bits worden gesteld. 
Foutmeldingen zijn duidelijk, en aan- 
geduid tot op het karakter nauwkeu- 
rig. Een editor is er NIET: gebruik Quill 
(aarghh!), The Editor, Sedit (het mini- 
editortje van Tony Tebby uit de Quan- 
ta-library: voldoet uitstekend voor For¬ 
tran !),Metacomco ED,.... 

Overleeft uw programma de compiler, 
dan voIgt de alomtegenwoordige 
GST-linker, die bij uw programma de 
vereiste library-routines bijlinkt (in dit 
geval veelal de mathematische func- 
ties), en u eventueel toelaat uit ve- 
rschillende source files een object file 
te maken. Pro Pascal en Pro Fortran 
programma’s kunnen naar believen 
worden gelinkt. In tegenstelling tot de 
watergruwel van Metacomco C, duurt 
het linken hier slechts ca. een kwart- 
minuut. 

Vervolgens kan het programma word¬ 
en uitgevoerd. Drie prompts worden 
aangeboden: default input, default 
output en optiestring. Wie TOOLKIT II 
gebruikt, kan ze alledrie met het EX of 
EW statement meegeven. Default de¬ 
vices en het al of niet aanbieden van 
de prompts kunnen worden ge- 
patched. 

Qua uitvoeringssnelheid klopt de 


code alle records. Zij is sneller dan die 
door Turbo gegenereerd (nochtans 
zelf al een Porsche onder de QL- 
talen), en dubbel zo snel als Meta¬ 
comco C. De screen handler gaat zo 
snel, dat de QL het amper kan bijhou- 
den. De 32-bits floating point bere- 
keningen (weinig minder nauwkeurig 
dan de inwendige precisie in super- 
basic) laten de QL eindelijk in zijn voile 
numerieke glorie zien, terwijl 64-bits 
aritmetiek volstaat voor zelfs de meest 
pedante krententeller. 

Wat de implementatie zelf betreft, wo- 
rdt de votledige ANSI standaard ge- 
supporteerd. Bovendien wordt een 
comprehensieve set QDOS-functies 
meegeleverd, zodat ook het scherm 
ten voile kan worden gebruikt (in Met¬ 
acomco C moet je dan al een hele li¬ 
brary beginnen samenstellen, om van 
het niet beschikbaar zijn van cursor- 
toetsen in de standaard input aldaar 
nog maar te zwijgen). Ook de meest 
verspreide niet-standaard library- 
functies zoekt u niet vergeefs. Vara- 
belen van vrijwel elk type kunnen vrij- 
wel elke vereiste woordlengte krijgen. 
IPEEK en POKE laten gefoezel toe, 
GETCOM geeft toegang tot de com¬ 
mand line, EXECPG laat toe vanuit het 
programma een ander te starten, IN¬ 
CLUDE geeft eindelijk de veelgepre- 
zen faciliteit van C om ’header files' 
met diverse declaraties apart te ver- 


werken, en waar nodig in het program¬ 
ma te specifieren zonder hertypen 
(deze faciliteit bestaat ook in VAX For¬ 
tran 77 op de DIGITAL-mini’s en main¬ 
frames). In een dergelijk filetje kunt u 
bv. definities van numerieke constant- 
en, PARAMETERS van arraygrenzen, 
en veelgebruikte COMMON en 
EQUIVALENCE declaraties stoppen. 

Een library-manager is bijgeleverd, zo¬ 
dat routines uit programma’s getrokk- 
en kunnen worden als kiezen. 

Compilaties verlopen vrij snel; pro¬ 
gramma’s van 10.000 lijnen en meer 
worden zonder morren verwerkt. 
Bugs heb ik tot hiertoe niet kunnen 
vinden. Numerieke overflows at run¬ 
time worden door een eenvoudig 
"retry y/n?" mechanisme opgevan- 
gen. De eerste crash moet ik nog te- 
genkomen. 

Samengevat kan men zeggen, dat 
het gaat om een zeer professioneel 
afgewerkt produkt, waar elke ernstige 
programmeur veel plezier aan zal be- 
leven. De hoge aanschafprijs is dus 
wel in alle opzichten gerechtvaardigd. 


uit kibbytje 
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Af en toe komt er op de QL-markt eens iets uit, 
dat te klein is om er een heuse review aan te wij- 
den, maar niettemin interessant genoeg om het 
een blik te gunnen. Hier volgen enkele van deze 
dingetjes. 


Tony Tebby's venerabele TOOLKIT II 
behoeft hier nog nauwelijks voorges- 
teld te worden. Een nadeel voor som- 
mige doleinden is natuurlijk dan het 
hele monster in EPROM zit. Wat als je 
een programma wil maken, dat op ie- 
dere QL draait, maar Toolkit-extensies 
gebruikt ? 

Alternatief 1: de gebruikers Toolkit II 
te koop aanbieden tegen gunstprijs, 
hetzij legaal, hetzij illegaal. 

Alternatief 2: een image nemen van 
de ROM, met een disassembler het 
juiste entrypoint voor de call zoeken 
en het hele monstrum aldus in de 
boot opnemen. Ten eerste juridisch 
niet geheel proper, ten tweede nogal 
plaatsrovend (zeker voor mensen met 
niet upgraded QLs). Alternatief drie: 
de hele Toolkit II via een $$asmb di- 
rectief inlinken tijdens de compilatie 
met QLiberator. Deze methode is 
wettelijk vrij dean, gezien de koper de 
Toolkit dan niet meer apart kan ge- 
bruiken. Evenwel, ieder programma 
krijgt dan een eigenlijk overbodige 16 
K erbij, terwijl je meestal toch maar 
een routine of vier, vijf per programma 
gebruikt. 

De RECONFIGURABLE TOOLKIT 
biedt nu een andere oplossing: met 
een speciaal menugestuurd configu- 
ratieprogrammaatje kunt u precies dat 
stel routines eruit trekken, dat u nodig 
hebt. Het hele ding is zelf- 
documenterend: zelfs krijgt u, als u 
met de cursor op het veld van een 
routine gaat staan, een korte beschrij- 
ving ervan in een apart window. 

De routines zeH zijn die uit de laatste 
nieuwe versle, 2.11, die u ook in de 
Trump Card vindt. In tegenstelling tot 
bij de EPROM-versie, werd ook de 
MG-patch (een klein stukje public- 
domain machinecode, dat een nogal 
irritante bug in de grafische routines 
van de MG-rom wegwerkt) opgeno- 


men: deze bevindt zich nu trouwens 
in de clubbliotheek voor wie er iets 
aan heeft. Als gebruikers van QL ver- 
sies AH.JM of JS zich een toolkit wil- 
len maken, selecteren ze dat item ge- 
woon niet. 

En ziezo: als u nu een geweldig 
prgrammaatje geschreven hebt, dat 
bv. voor error trapping op de file- 
behandeling de Toolkit-functies 
FOP_IN,FOP_NEW,... gebruikt, dan 
kunt u gewoon even een toolkitje 
configureren met alleen die comman¬ 
do's (dat dan nog geen 2 K lang is), 
en het vervolgens met een $$asmb- 
directief inlinken tijdens de compilatie 
met QLiberator. 

Van QLiberator is trouwens ondertus- 
sen de versie 3.1 uit, met de vol- 
gende belangrijke verbeteringen: 

-hij draait onder QRAM, en maakt ge- 
bruik van de pointer-interface 
-grote programmes kunnen overlayed 
worden 

-sets routines,met QLiberator gecom- 
pileerd, kunnen gebruikt worden als 
Superbasic-extensie III! Dit zonder de 
restricties die een analoge jezuieten- 
truc bij TURBO stelt. Zelfs kunnen 
EPROM-images, met header en al, 
van meerdere programma's (zelfs 
BASIC, machinecode,... door elkaar) 
worden geprepareerd. Eindelijk de 
simpele oplossing voor wie zes tool¬ 
kits tegelijk in EPROM wil schieten 
-integer for loops worden gesuppor- 
teerd d.m.v. een soort IMPLICIT typ¬ 
ing 

-communicatie van variabelen tussen 
tasks (GLOBAL.EXTERNAL,...) wordt 
nu ook gesupporteerd. 

Uiteraard wordt de snelheid van Turbo 
in geen enkel opzicht ook maar bena- 
derd: het is en biijft immers een pseu¬ 
docompiler, ongeveer zoals Turbo- 
Pascal op de MS-DOS machines. 


Tesamen met QLiberator werd ook 
QLOAD/QREF aangekocht. Voor het 
zeer luttele prijsje (£ 9.95) is dit pro- 
dukt zijn geld beslist waard QLOAD, 
QSAVE en QLRUN zijn extensies die 
toelaten een Basic-programma in zijn 
inwendige vorm, i.p.v. in tekstvorm, te 
laden en te saven. Het nut hiervan zit 
hem in de explosieve tijdwinst bij 
grote programma's: immers, bij ht la¬ 
den van een Basic-programma op de 
normale wijze wordt zeer veel tijd ge¬ 
bruikt bij de tokenizing (opnieuw op- 
bouwen van de symbooltabellen 
etc...). Een programma van 60 K in 
Basic kan gemakkelijk bijna 10 minu- 
ten in beslag nemen om te laden (van- 
af disk dan nog I): met QLOAD (na na¬ 
tuurlijk QSAVE i.p.v. SAVE gebruikt 
te hebben) wordt dit gereduceerd tot 
ca. 15 seconden III 
Anders dan gelijkaardige systemen 
(FLRUN e.d.) is er geen probleem met 
afhankelijkheid van type QL en confi- 
guratie. Wei moeten, als er extensies 
worden gebruikt in het programma, 
deze zowel bij de QSAVE als bij de 
QLOAD geladen zijn, dit om gibberish 
in de interpreter-tabellen te vermij- 
den. Als het dat maar is... 

QFIND laat toe, een variabele of func- 
tie/procedure te zoeken in het ingela- 
den programma. Zeer handig in con- 
junctie met de full screen-editor uit 
TOOLKIT II. Search repeats zijn ook 
mogelijk. 

QREF en al zijn varianten, tenslotte, 
iaat toe een cross-referencing te 
doen van variabelen, functies, proce¬ 
dures,... eventueel met een wildcard¬ 
string. Dit voegt een faciliteit toe aan 
Superbasic, die door de wol geverfde 
programmeurs wel van de compilers 
op hun mainframe zullen kennen, 
maar zeker niet van een interpreter. 
Soms, als de boel om onverklaarbare 
redenen maar niet wil lopen, blijkt uit 
de xref dat een bepaalde variabele op 
een obscure plaats verkeerd gespeld 
werd... 

Enfin, u merkt het, er zit nog steeds 
beweging in het QL-front. Wij houden 
u met veel genoegen op de hoogte.. 
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Te Koop Aangeboden: 

Cumana dubbele 3.5 diskdrive 
720KB in kast met ingebouwde 


voeding./ 425,-- 

CST diskirrterface./ 100,- 


Microvitec Kleuren-monitor./ 400,-- 

Epromkaart met doorvoerconnector 
en 128 KB programma's op eprom: 
Turbo-toolkit II, Copymachine, Qflash, 
Superbasic Extensions, Utility's van 
Qram, Qlone, Ultradisk, Graphic 


Constuction Kit./ 150,-- 

Speedscreen in Romkaart 

(voor achterin)./ 40,~ 

ICE in Romkaart 

(voor achterin)./ 40,-- 

QL-JS versie, 

512KB (intern)./ 300,-- 

36 Cartridges per stuk../ 3,- 

Reacties naar: 

Bert Linschoten 
Weidonklaan 2 
s'Hertogenbosch 
Tel. 073 - 214278 


Te Koop Aangeboden: 

2 diskdrives, 3 inch met 8 floppies, de 
drives zijn enkelzijdig, de floppies 
kunnen echter aan 2 zijden 
bescheven worden (totaal 360KB) 

Vraagprijs./ 295,- 

Inl. Hans Brinkmann 
Tel. 070 - 456510 


Te Koop 

QL (512 intern) met Schon 
toetsenbord, dubbele diskdrive (3,5” 
720KB elk) met interface, Ql-printer, 
Sciento monitor (amber), 

40 cartridges met veel software, alles 

in een koop../ 1600,- 

inl. W.J. van Duijnhoven 
Tel. 04929 - 64937 


Te Koop Aangeboden: 

QL-JM, 128 Kprijs./ 275,- 

Fred Vink 

Tel. 02230 - 342050 
(tussen 18.00 en 22.00 uur). 


Te Koop Aangeboden: 

Interne geheugenuitbreiding (incl. 
documentatie) naar 640KB, enig 
solderen vereist. 

Spectrum+ (48K) incl. cassette- 
recorder, 2 boeken, 3 tijdschriften, 

9 originele spelporgramma's en 
orginele assembler. Eventueel ruilen 
tegen 3,5" 720K diskdrives. 

Ini. Erwin Bolwidt, 

Ouderkerk a/d Amstel 

Tel. 02963 -1564 (na half zeven) 


Te Koop Aangeboden: 

Sinclair QL-JS(128K), QL-printer, 
CUB kleurenmonitor, diverse 
handboeken en tijdschriften, 

50 cartridges, centronicsinterface en 
diverse programma's (o.a. chess). 
Vraagprijs./1000,- 

Ad Dekkers 
Rijksweg 122 
6581 ES Malden 
prive: 080 - 583487 
werk: 040 - 605215 


Te Koop Aangeboden: 

In goede staat verkerende QL(JM) 
bijbehorende printer, ±50 cartridges 
veel programma's en veel 
documentatie. 

Alles in den koop. 

Vraagprijs./ 700,- 

Martin de Zeeuw 

Tel. 070-600162 

(tussen 18.00 en 22.00 uur) 


Te Koop Aangeboden: 

QUB Kleuren monitor./ 400,-- 

2 x 3,5 inch Diskdrive (2 x 720k) 

Cumana./ 425,- 

128k Eprom kaart incl. 4 x 32k Eproms 
met: 

- Tootdt II 

- Toolbox 
-GCK 

- Qbad Qref 
-Copier 
-Qram 

- Super Basic Extensies 
-Qflash 

Dit is de inhoud van de 4 x 32k 
eproms, dus de Eprom kaart met 


4 32k Eproms./ 125,- 

Cartridges nog 8 setjes van 4 st. 

per set./ 15,— 

Cartridges nog 6 setjes van 4 st. 

per set./ 20,~ 

Chess orgineel./ 25,-- 

ICE op Eprom nog 1 stuks./ 40,- 

Toolkit II op Eprom 

nog 2 stuks./ 40,- 

Speedscreen op Eprom 

nog 1 stuks./ 40,~ 


Fred van der Neut 
01807-10553 (alleen woensdag 
avond tot 22.00 uur) 
010-4546372 overdag 


VRAAG??? 

Heeft iemand een programma, of kan 
iemand een programma maken, 
waarmee een toets van het 
toetsenbord veranderd kan worden? 
Dus bijvoorbeeld om de min (-) te 
veranderen in de underscore (_) en 
andersom. Het gebruik spreekt voor 
zichzelf. Het liefst zodanig dat het in 
een bootfile opgenomen kan 
worden. 

Oplossingen via: 

Dirk de Vogel 
Ireneweg 1 

6862 HL Oosterbeek 

of via het redactieadres: 

Gerard van Rooijen 
Gruttostraat 15 
3435 DJ Nieuwgein 
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4 juni QL-dag in Utrecht 



Zaterdag 4 juni 1988 
QL- bijeenkomst in de 
ir. A.J. Versfelt MTS 
Grebbeberglaan 15 te Utrecht 
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